home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / ghostscript / 5.10 / data / ps2epsi.ps < prev    next >
Text File  |  1997-09-29  |  8KB  |  254 lines
  1. %    Copyright (C) 1990, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Convert an arbitrary PostScript file to an EPSI file.
  19. %
  20. % Original version contributed by
  21. %    George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
  22. % Patched 7/26/95 by
  23. %    Greg P. Kochanski <gpk@bell-labs.com>
  24. %   to add many new DSC comments and make the comments conforming.
  25. % Bug fix 9/29/97 by lpd <ghost@aladdin.com>: if the page size wasn't an
  26. %   exact multiple of 8 bits, an incorrect bounding box (or a rangecheck
  27. %   error) could occur.
  28. % Please do not contact these users if you have questions.  They no longer
  29. % have the time, interest, or current expertise to keep this code working.
  30. % If you find bugs, please send proposed fixes to ghost@aladdin.com.
  31. %
  32.  
  33. % Initialize, and redefine copypage and showpage.
  34.  
  35. % ps2edict is defined in the pre-loaded code created by the ps2epsi script.
  36. % /ps2edict 25 dict def
  37. ps2edict begin
  38.  
  39.                 % The main procedure
  40.   /ps2epsi
  41.    {                % Open the file
  42.      outfile (w) file /epsifile exch def
  43.                     % Get the device parameters
  44.      currentdevice getdeviceprops .dicttomark
  45.      /HWSize get aload pop
  46.        /devheight exch def
  47.        /devwidth exch def
  48.      matrix defaultmatrix
  49.        /devmatrix exch def
  50.                 % Make a corresponding memory device
  51.      devmatrix devwidth devheight <ff 00>
  52.      makeimagedevice
  53.      /arraydevice exch def
  54.      arraydevice setdevice    % (does an erasepage)
  55.      /rowwidth devwidth 7 add 8 idiv def
  56.      /row rowwidth string def
  57.                 % Replace the definition of showpage
  58.      userdict /showpage { ps2edict begin epsipage end } bind put
  59.      userdict /setfont { ps2edict begin epsisetfont end } bind put
  60.    } def
  61.  
  62.  /epsifontdict 100 dict def
  63.  
  64.  /epsisetfont
  65.  {
  66.  % code here keeps a list of font names in dictionary epsifontdict
  67.  /tmpfont exch def
  68.  /tmpfontname tmpfont /FontName get def
  69.  epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
  70.  epsifontdict tmpfontname
  71.     epsifontdict tmpfontname get 1 add put
  72.  tmpfont setfont
  73.  } bind def
  74.  
  75. % Get a scan line from the memory device, zeroing any bits beyond
  76. % the device width.
  77.  /getscanline        % <device> <y> <string> getscanline -
  78.  {
  79.     dup 4 1 roll copyscanlines pop
  80.     16#ff00 devwidth 7 and neg bitshift 255 and
  81.     dup 0 ne {
  82.       exch dup length 1 sub 2 copy get 4 -1 roll and put
  83.     } {
  84.       pop pop
  85.     } ifelse
  86.  } bind def
  87.  
  88.  /margintest
  89.  {
  90.       { dup arraydevice exch row getscanline
  91.     -1 0 1 rowwidth 1 sub
  92.     { dup row exch get 0 ne { exit }{ pop } ifelse
  93.     } for
  94.     dup -1 ne { exch pop } if
  95.     -1 ne { exit } if pop
  96.       } for
  97.  } bind def
  98.  
  99.  
  100.   /epsiNameStr 200 string def
  101.   /epsiNpages 0 def
  102.   /epsiNpageStr 20 string def
  103.   /epsipage
  104.    {
  105.      /epsiNpages epsiNpages 1 add def
  106.      /loopcount devheight 1 sub def
  107.  
  108.      % Find top margin
  109.      -1 0 1 loopcount margintest
  110.      dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse 
  111.      /tm exch def
  112.  
  113.      % Find bottom margin
  114.      loopcount -1 0 margintest
  115.      /bm exch def
  116.      
  117.      % Initialise limit variables
  118.      /loopcount rowwidth 1 sub def
  119.      /lm loopcount def /lmb 0 def
  120.      /rm 0 def /rmb 0 def
  121.  
  122.      % Find left and right boundaries of image
  123.      tm 1 bm
  124.       { % Get more data
  125.     arraydevice exch row getscanline
  126.     % Scan from left to find first non-zero element
  127.     % We save first the element, then the index
  128.     -1 0 1 loopcount
  129.     { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  130.     } for
  131.     % If we found -1, row is blank ..
  132.     dup -1 ne 
  133.     { % Find the leftmost index
  134.           dup lm lt
  135.           % If the new index is less, we save index and element
  136.           { /lm exch def /lmb exch def }
  137.           % If the index is equal, we or the bits together
  138.           { lm eq { lmb or /lmb exch def }{ pop } ifelse
  139.           } ifelse
  140.       % Now find the rightmost index
  141.       loopcount -1 0
  142.           { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  143.           } for
  144.       dup rm gt
  145.           % If the new index is greater, we save index and element
  146.           { /rm exch def /rmb exch def }
  147.           % If the index is equal, or the bits
  148.           { rm eq { rmb or /rmb exch def } { pop } ifelse
  149.           } ifelse
  150.     } if
  151.     pop
  152.       } for
  153.  
  154.      % Now we find the real left & right bit positions
  155.      256 0 1 7
  156.      { exch 2 div dup lmb le { pop exit }{ exch pop } ifelse
  157.      } for
  158.      /lmb exch def
  159.  
  160.      1 7 -1 0
  161.      { exch dup dup rmb and eq { pop exit }{ 2 mul exch pop } ifelse
  162.      } for
  163.      /rmb exch def
  164.  
  165.      % Calculate the bounding box values
  166.      /llx lm 8 mul lmb add  1 sub def
  167.      /lly devheight bm sub  1 sub def
  168.      /urx rm 8 mul rmb add 1 add def
  169.      /ury devheight tm sub 1 add def
  170.  
  171.     % Write out the magic string and bounding box information
  172.      epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
  173.      epsifile epsititle writestring
  174.      epsifile epsicreator writestring
  175.      epsifile epsicrdt writestring
  176.      epsifile epsifor writestring
  177.      epsifile flushfile
  178.  
  179.     % Write out the page count:
  180.      epsifile (%%Pages: ) writestring
  181.      epsifile epsiNpages epsiNpageStr cvs writestring
  182.      epsifile (\n) writestring
  183.      epsifile flushfile
  184.  
  185.     % Write out the list of used fonts:
  186.      epsifile (%%DocumentFonts:) writestring
  187.      epsifontdict {
  188.                     epsifile ( ) writestring
  189.                     pop epsiNameStr cvs epsifile exch writestring
  190.                     } forall
  191.      epsifile (\n) writestring
  192.      epsifile flushfile
  193.  
  194.      epsifile (%%BoundingBox: ) writestring
  195.      epsifile llx write==only epsifile ( ) writestring
  196.      epsifile lly write==only epsifile ( ) writestring
  197.      epsifile urx write==only epsifile ( ) writestring
  198.      epsifile ury write==
  199.      epsifile (%%BeginPreview: ) writestring
  200.      epsifile urx llx sub 1 add write==only epsifile ( ) writestring
  201.      epsifile bm tm sub 1 add write==only epsifile ( 1 ) writestring
  202.      epsifile bm tm sub 1 add write==
  203.      epsifile flushfile
  204.  
  205.     % Define character and bit widths for the output line buffer:
  206.      /cwidth rm lm sub 1 add 8 mul 7 add 8 idiv def
  207.      /bwidth cwidth 8 mul def
  208.      /owidth urx llx sub 1 add 7 add 8 idiv def
  209.      /out cwidth string def
  210.  
  211.      % Create a 1-bit-high device for bitblt to align with the bbox
  212.      gsave
  213.      matrix cwidth 8 mul 1 <00 ff> makeimagedevice setdevice
  214.  
  215.      % 'image' a zero string to clear the line device
  216.      bwidth 1 1 matrix cwidth string image
  217.  
  218.      tm 1 bm
  219.       { % Get a scan line interval from the array device
  220.     arraydevice exch row copyscanlines lm cwidth getinterval
  221.     lmb 0 gt
  222.     { % 'image' it into the line device with the lmb offset
  223.       bwidth 1 1 [1 0 0 1 lmb 0] 5 -1 roll image
  224.       % Now we get the modified scan line
  225.       currentdevice 0 out copyscanlines 0 owidth getinterval
  226.     } if
  227.     % Write out the hex data
  228.     epsifile (% ) writestring 
  229.     epsifile exch writehexstring
  230.     epsifile (\n) writestring
  231.       } for
  232.  
  233.      epsifile (%%EndImage\n) writestring
  234.      epsifile (%%EndPreview\n) writestring
  235.      epsifile flushfile
  236.      grestore
  237.      erasepage initgraphics
  238.  
  239.      DonePage 0 1 put
  240.    } bind def
  241.  
  242.  
  243. (outfile) getenv
  244.   { /outfile exch def 
  245.     ps2epsi
  246.  
  247.     /DonePage 1 string def
  248.     (%stdin) (r) file cvx execute0
  249.     DonePage 0 get 0 eq { showpage } if
  250.   } if
  251.  
  252. end
  253. quit
  254.